home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmputil.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  16.1 KB  |  752 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmputil.h"
  4. init_cmputil(){do_init(VV);}
  5. /*    macro definition for SAFE-COMPILE    */
  6.  
  7. static L1()
  8. {register object *base=vs_base;
  9.     register object *sup=base+VM1; VC1
  10.     vs_reserve(VM1);
  11.     check_arg(2);
  12.     vs_top=sup;
  13.     {object V1=base[0]->c.c_cdr;
  14.     base[2]= V1;}
  15.     base[3]= listA(3,VV[0],VV[1],base[2]);
  16.     vs_top=(vs_base=base+3)+1;
  17.     return;
  18. }
  19. /*    local entry for function CMPERR    */
  20.  
  21. static object LI2(V2,va_alist)
  22.     object V2;
  23.     va_dcl 
  24. {    
  25.     va_list ap;
  26.     int narg = VFUN_NARGS; VMB2 VMS2 VMV2
  27.     bds_check;
  28.     {object V3;
  29.     object V4;
  30.     if(narg <1) too_few_arguments();
  31.     V3= V2;
  32.     narg= narg - 1;
  33.     va_start(ap);
  34.     V5 = list_vector(narg,ap);
  35.     V4= V5;
  36.     bds_bind(VV[3],VV[2]);
  37.     (void)((*(LnkLI58))());
  38.     base[1]= Ct;
  39.     base[2]= VV[4];
  40.     vs_top=(vs_base=base+1)+2;
  41.     Lformat();
  42.     vs_top=sup;
  43.     base[1]= Ct;
  44.     base[2]= (V3);
  45.     {object V6;
  46.     V6= (V4);
  47.      vs_top=base+3;
  48.      while(!endp(V6))
  49.      {vs_push(car(V6));V6=cdr(V6);}
  50.     vs_base=base+1;}
  51.     Lformat();
  52.     vs_top=sup;
  53.     setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
  54.     {frame_ptr fr;
  55.     fr=frs_sch_catch(VV[6]);
  56.     if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]);
  57.     base[1]= VV[7];
  58.     vs_top=(vs_base=base+1)+1;
  59.     unwind(fr,VV[6]);}}
  60.     }
  61. /*    macro definition for CMPCK    */
  62.  
  63. static L3()
  64. {register object *base=vs_base;
  65.     register object *sup=base+VM3; VC3
  66.     vs_reserve(VM3);
  67.     check_arg(2);
  68.     vs_top=sup;
  69.     {object V7=base[0]->c.c_cdr;
  70.     if(endp(V7))invalid_macro_call();
  71.     base[2]= (V7->c.c_car);
  72.     V7=V7->c.c_cdr;
  73.     if(endp(V7))invalid_macro_call();
  74.     base[3]= (V7->c.c_car);
  75.     V7=V7->c.c_cdr;
  76.     base[4]= V7;}
  77.     base[5]= list(3,VV[8],base[2],listA(3,VV[9],base[3],base[4]));
  78.     vs_top=(vs_base=base+5)+1;
  79.     return;
  80. }
  81. /*    local entry for function TOO-MANY-ARGS    */
  82.  
  83. static object LI4(V11,V12,V13)
  84.  
  85. object V11;object V12;object V13;
  86. {     VMB4 VMS4 VMV4
  87.     bds_check;
  88. TTL:;
  89.     bds_bind(VV[3],VV[2]);
  90.     (void)((*(LnkLI58))());
  91.     base[1]= Ct;
  92.     base[2]= VV[10];
  93.     base[3]= (V11);
  94.     base[4]= (V12);
  95.     base[5]= (V13);
  96.     vs_top=(vs_base=base+1)+5;
  97.     Lformat();
  98.     vs_top=sup;
  99.     setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
  100.     {frame_ptr fr;
  101.     fr=frs_sch_catch(VV[6]);
  102.     if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]);
  103.     base[1]= VV[7];
  104.     vs_top=(vs_base=base+1)+1;
  105.     unwind(fr,VV[6]);}
  106. }
  107. /*    local entry for function TOO-FEW-ARGS    */
  108.  
  109. static object LI5(V17,V18,V19)
  110.  
  111. object V17;object V18;object V19;
  112. {     VMB5 VMS5 VMV5
  113.     bds_check;
  114. TTL:;
  115.     bds_bind(VV[3],VV[2]);
  116.     (void)((*(LnkLI58))());
  117.     base[1]= Ct;
  118.     base[2]= VV[11];
  119.     base[3]= (V17);
  120.     base[4]= (V18);
  121.     base[5]= (V19);
  122.     vs_top=(vs_base=base+1)+5;
  123.     Lformat();
  124.     vs_top=sup;
  125.     setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
  126.     {frame_ptr fr;
  127.     fr=frs_sch_catch(VV[6]);
  128.     if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]);
  129.     base[1]= VV[7];
  130.     vs_top=(vs_base=base+1)+1;
  131.     unwind(fr,VV[6]);}
  132. }
  133. /*    local entry for function CMPWARN    */
  134.  
  135. static object LI6(V20,va_alist)
  136.     object V20;
  137.     va_dcl 
  138. {    
  139.     va_list ap;
  140.     int narg = VFUN_NARGS; VMB6 VMS6 VMV6
  141.     bds_check;
  142.     {object V21;
  143.     object V22;
  144.     if(narg <1) too_few_arguments();
  145.     V21= V20;
  146.     narg= narg - 1;
  147.     va_start(ap);
  148.     V23 = list_vector(narg,ap);
  149.     V22= V23;
  150.     bds_bind(VV[3],VV[2]);
  151.     if((symbol_value(VV[12]))!=Cnil){
  152.     goto T32;}
  153.     (void)((*(LnkLI58))());
  154.     base[1]= Ct;
  155.     base[2]= VV[13];
  156.     vs_top=(vs_base=base+1)+2;
  157.     Lformat();
  158.     vs_top=sup;
  159.     base[1]= Ct;
  160.     base[2]= (V21);
  161.     {object V24;
  162.     V24= (V22);
  163.      vs_top=base+3;
  164.      while(!endp(V24))
  165.      {vs_push(car(V24));V24=cdr(V24);}
  166.     vs_base=base+1;}
  167.     Lformat();
  168.     vs_top=sup;
  169.     princ_char(10,Cnil);
  170. T32:;
  171.     {object V25 = Cnil;
  172.     bds_unwind1;
  173.     VMR6(V25)}}
  174.     }
  175. /*    local entry for function CMPNOTE    */
  176.  
  177. static object LI7(V26,va_alist)
  178.     object V26;
  179.     va_dcl 
  180. {    
  181.     va_list ap;
  182.     int narg = VFUN_NARGS; VMB7 VMS7 VMV7
  183.     bds_check;
  184.     {object V27;
  185.     object V28;
  186.     if(narg <1) too_few_arguments();
  187.     V27= V26;
  188.     narg= narg - 1;
  189.     va_start(ap);
  190.     V29 = list_vector(narg,ap);
  191.     V28= V29;
  192.     bds_bind(VV[3],VV[2]);
  193.     if((symbol_value(VV[14]))!=Cnil){
  194.     goto T43;}
  195.     princ_char(10,Cnil);
  196.     base[1]= Ct;
  197.     base[2]= VV[15];
  198.     vs_top=(vs_base=base+1)+2;
  199.     Lformat();
  200.     vs_top=sup;
  201.     base[1]= Ct;
  202.     base[2]= (V27);
  203.     {object V30;
  204.     V30= (V28);
  205.      vs_top=base+3;
  206.      while(!endp(V30))
  207.      {vs_push(car(V30));V30=cdr(V30);}
  208.     vs_base=base+1;}
  209.     Lformat();
  210.     vs_top=sup;
  211. T43:;
  212.     {object V31 = Cnil;
  213.     bds_unwind1;
  214.     VMR7(V31)}}
  215.     }
  216. /*    local entry for function PRINT-CURRENT-FORM    */
  217.  
  218. static object LI8()
  219.  
  220. {     VMB8 VMS8 VMV8
  221.     bds_check;
  222. TTL:;
  223.     if((symbol_value(VV[16]))==Cnil){
  224.     goto T53;}
  225.     setq(VV[16],Cnil);
  226.     vs_base=vs_top;
  227.     Lfresh_line();
  228.     vs_top=sup;
  229.     if(!(type_of(symbol_value(VV[17]))==t_cons)){
  230.     goto T60;}
  231.     if(!((car(symbol_value(VV[17])))==(VV[18]))){
  232.     goto T60;}
  233.     base[0]= Ct;
  234.     base[1]= VV[19];
  235.     base[2]= cdr(symbol_value(VV[17]));
  236.     vs_top=(vs_base=base+0)+3;
  237.     Lformat();
  238.     vs_top=sup;
  239.     goto T53;
  240. T60:;
  241.     bds_bind(VV[20],small_fixnum(2));
  242.     bds_bind(VV[21],small_fixnum(2));
  243.     base[2]= Ct;
  244.     base[3]= VV[22];
  245.     base[4]= symbol_value(VV[17]);
  246.     vs_top=(vs_base=base+2)+3;
  247.     Lformat();
  248.     vs_top=sup;
  249.     bds_unwind1;
  250.     bds_unwind1;
  251. T53:;
  252.     {object V32 = Cnil;
  253.     VMR8(V32)}
  254. }
  255. /*    local entry for function UNDEFINED-VARIABLE    */
  256.  
  257. static object LI9(V34)
  258.  
  259. object V34;
  260. {     VMB9 VMS9 VMV9
  261.     bds_check;
  262. TTL:;
  263.     bds_bind(VV[3],VV[2]);
  264.     (void)((*(LnkLI58))());
  265.     base[1]= Ct;
  266.     base[2]= VV[23];
  267.     base[3]= (V34);
  268.     vs_top=(vs_base=base+1)+3;
  269.     Lformat();
  270.     vs_top=sup;
  271.     {object V35 = Cnil;
  272.     bds_unwind1;
  273.     VMR9(V35)}
  274. }
  275. /*    local entry for function BABOON    */
  276.  
  277. static object LI10()
  278.  
  279. {     VMB10 VMS10 VMV10
  280.     bds_check;
  281. TTL:;
  282.     bds_bind(VV[3],VV[2]);
  283.     (void)((*(LnkLI58))());
  284.     base[1]= Ct;
  285.     base[2]= VV[24];
  286.     vs_top=(vs_base=base+1)+2;
  287.     Lformat();
  288.     vs_top=sup;
  289.     setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
  290.     {object V36 = (VFUN_NARGS=0,(*(LnkLI59))());
  291.     bds_unwind1;
  292.     VMR10(V36)}
  293. }
  294. /*    macro definition for DOLIST*    */
  295.  
  296. static L11()
  297. {register object *base=vs_base;
  298.     register object *sup=base+VM11; VC11
  299.     vs_reserve(VM11);
  300.     check_arg(2);
  301.     vs_top=sup;
  302.     {object V37=base[0]->c.c_cdr;
  303.     if(endp(V37))invalid_macro_call();
  304.     {object V38= (V37->c.c_car);
  305.     if(endp(V38))invalid_macro_call();
  306.     base[2]= (V38->c.c_car);
  307.     V38=V38->c.c_cdr;
  308.     if(endp(V38))invalid_macro_call();
  309.     base[3]= (V38->c.c_car);
  310.     V38=V38->c.c_cdr;
  311.     if(endp(V38)){
  312.     base[4]= Cnil;
  313.     } else {
  314.     base[4]= (V38->c.c_car);
  315.     V38=V38->c.c_cdr;}
  316.     if(!endp(V38))invalid_macro_call();}
  317.     V37=V37->c.c_cdr;
  318.     base[5]= V37;}
  319.     {register object V39;
  320.     vs_base=vs_top;
  321.     Lgensym();
  322.     vs_top=sup;
  323.     V39= vs_base[0];
  324.     V40= list(3,(V39),base[3],list(2,VV[26],(V39)));
  325.     V41= list(2,VV[27],(V39));
  326.     V42= list(2,/* INLINE-ARGS */V40,list(3,base[2],/* INLINE-ARGS */V41,list(2,VV[27],(V39))));
  327.     V43= list(2,list(2,VV[28],(V39)),base[4]);
  328.     base[6]= listA(5,VV[25],/* INLINE-ARGS */V42,/* INLINE-ARGS */V43,list(2,VV[29],list(2,VV[30],base[2])),base[5]);
  329.     vs_top=(vs_base=base+6)+1;
  330.     return;}
  331. }
  332. /*    macro definition for DOLIST**    */
  333.  
  334. static L12()
  335. {register object *base=vs_base;
  336.     register object *sup=base+VM12; VC12
  337.     vs_reserve(VM12);
  338.     check_arg(2);
  339.     vs_top=sup;
  340.     {object V44=base[0]->c.c_cdr;
  341.     if(endp(V44))invalid_macro_call();
  342.     {object V45= (V44->c.c_car);
  343.     if(endp(V45))invalid_macro_call();
  344.     base[2]= (V45->c.c_car);
  345.     V45=V45->c.c_cdr;
  346.     if(endp(V45))invalid_macro_call();
  347.     base[3]= (V45->c.c_car);
  348.     V45=V45->c.c_cdr;
  349.     if(endp(V45)){
  350.     base[4]= Cnil;
  351.     } else {
  352.     base[4]= (V45->c.c_car);
  353.     V45=V45->c.c_cdr;}
  354.     if(!endp(V45))invalid_macro_call();}
  355.     V44=V44->c.c_cdr;
  356.     base[5]= V44;}
  357.     {register object V46;
  358.     vs_base=vs_top;
  359.     Lgensym();
  360.     vs_top=sup;
  361.     V46= vs_base[0];
  362.     V47= list(3,(V46),base[3],list(2,VV[26],(V46)));
  363.     V48= list(2,VV[27],(V46));
  364.     V49= list(2,/* INLINE-ARGS */V47,list(3,base[2],/* INLINE-ARGS */V48,list(2,VV[27],(V46))));
  365.     V50= list(2,list(2,VV[28],(V46)),base[4]);
  366.     base[6]= listA(5,VV[25],/* INLINE-ARGS */V49,/* INLINE-ARGS */V50,list(2,VV[29],list(3,VV[30],(V46),base[2])),base[5]);
  367.     vs_top=(vs_base=base+6)+1;
  368.     return;}
  369. }
  370. /*    macro definition for DOTIMES*    */
  371.  
  372. static L13()
  373. {register object *base=vs_base;
  374.     register object *sup=base+VM13; VC13
  375.     vs_reserve(VM13);
  376.     check_arg(2);
  377.     vs_top=sup;
  378.     {object V51=base[0]->c.c_cdr;
  379.     if(endp(V51))invalid_macro_call();
  380.     {object V52= (V51->c.c_car);
  381.     if(endp(V52))invalid_macro_call();
  382.     base[2]= (V52->c.c_car);
  383.     V52=V52->c.c_cdr;
  384.     if(endp(V52))invalid_macro_call();
  385.     base[3]= (V52->c.c_car);
  386.     V52=V52->c.c_cdr;
  387.     if(endp(V52)){
  388.     base[4]= Cnil;
  389.     } else {
  390.     base[4]= (V52->c.c_car);
  391.     V52=V52->c.c_cdr;}
  392.     if(!endp(V52))invalid_macro_call();}
  393.     V51=V51->c.c_cdr;
  394.     base[5]= V51;}
  395.     {object V53;
  396.     vs_base=vs_top;
  397.     Lgensym();
  398.     vs_top=sup;
  399.     V53= vs_base[0];
  400.     V54= list(2,(V53),base[3]);
  401.     V55= list(2,/* INLINE-ARGS */V54,list(3,base[2],small_fixnum(0),list(2,VV[31],base[2])));
  402.     V56= list(2,list(3,VV[32],base[2],(V53)),base[4]);
  403.     base[6]= listA(5,VV[25],/* INLINE-ARGS */V55,/* INLINE-ARGS */V56,list(2,VV[29],list(2,VV[33],base[2])),base[5]);
  404.     vs_top=(vs_base=base+6)+1;
  405.     return;}
  406. }
  407. /*    macro definition for DOTIMES**    */
  408.  
  409. static L14()
  410. {register object *base=vs_base;
  411.     register object *sup=base+VM14; VC14
  412.     vs_reserve(VM14);
  413.     check_arg(2);
  414.     vs_top=sup;
  415.     {object V57=base[0]->c.c_cdr;
  416.     if(endp(V57))invalid_macro_call();
  417.     {object V58= (V57->c.c_car);
  418.     if(endp(V58))invalid_macro_call();
  419.     base[2]= (V58->c.c_car);
  420.     V58=V58->c.c_cdr;
  421.     if(endp(V58))invalid_macro_call();
  422.     base[3]= (V58->c.c_car);
  423.     V58=V58->c.c_cdr;
  424.     if(endp(V58)){
  425.     base[4]= Cnil;
  426.     } else {
  427.     base[4]= (V58->c.c_car);
  428.     V58=V58->c.c_cdr;}
  429.     if(!endp(V58))invalid_macro_call();}
  430.     V57=V57->c.c_cdr;
  431.     base[5]= V57;}
  432.     {object V59;
  433.     vs_base=vs_top;
  434.     Lgensym();
  435.     vs_top=sup;
  436.     V59= vs_base[0];
  437.     V60= list(2,(V59),base[3]);
  438.     V61= list(2,/* INLINE-ARGS */V60,list(3,base[2],small_fixnum(0),list(2,VV[31],base[2])));
  439.     V62= list(2,list(3,VV[32],base[2],(V59)),base[4]);
  440.     base[6]= listA(5,VV[25],/* INLINE-ARGS */V61,/* INLINE-ARGS */V62,list(2,VV[29],list(3,VV[33],(V59),base[2])),base[5]);
  441.     vs_top=(vs_base=base+6)+1;
  442.     return;}
  443. }
  444. /*    function definition for CMP-EVAL    */
  445.  
  446. static L15()
  447. {register object *base=vs_base;
  448.     register object *sup=base+VM15; VC15
  449.     vs_reserve(VM15);
  450.     bds_check;
  451.     {object V63;
  452.     check_arg(1);
  453.     V63=(base[0]);
  454.     vs_top=sup;
  455. TTL:;
  456.     {object V64;
  457.     base[1]= list(2,VV[34],list(2,VV[35],(V63)));
  458.     vs_top=(vs_base=base+1)+1;
  459.     (void) (*Lnk60)();
  460.     Llist();
  461.     vs_top=sup;
  462.     V64= vs_base[0];
  463.     if((car((V64)))==Cnil){
  464.     goto T93;}
  465.     bds_bind(VV[3],VV[2]);
  466.     setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
  467.     (void)((*(LnkLI58))());
  468.     base[2]= Ct;
  469.     base[3]= VV[36];
  470.     base[4]= (V63);
  471.     vs_top=(vs_base=base+2)+3;
  472.     Lformat();
  473.     vs_top=sup;
  474.     base[2]= Cnil;
  475.     vs_top=(vs_base=base+2)+1;
  476.     bds_unwind1;
  477.     return;
  478. T93:;
  479.     base[1]= cdr((V64));
  480.     vs_top=(vs_base=base+1)+1;
  481.     Lvalues_list();
  482.     return;}
  483.     }
  484. }
  485. /*    local entry for function CMP-MACROEXPAND    */
  486.  
  487. static object LI16(V66)
  488.  
  489. object V66;
  490. {     VMB16 VMS16 VMV16
  491.     bds_check;
  492. TTL:;
  493.     {register object V67;
  494.     V67= Cnil;
  495.     {register object V68;
  496.     register object V69;
  497.     V68= symbol_value(VV[37]);
  498.     V69= car((V68));
  499. T108:;
  500.     if(!(endp((V68)))){
  501.     goto T109;}
  502.     goto T104;
  503. T109:;
  504.     if(!(type_of((V69))==t_cons)){
  505.     goto T113;}
  506.     V70= list(3,car((V69)),VV[38],cadr((V69)));
  507.     V67= make_cons(/* INLINE-ARGS */V70,(V67));
  508. T113:;
  509.     V68= cdr((V68));
  510.     V69= car((V68));
  511.     goto T108;}
  512. T104:;
  513.     if(((V67))==Cnil){
  514.     goto T122;}
  515.     V71= nreverse((V67));
  516.     V67= list(3,Cnil,/* INLINE-ARGS */V71,Cnil);
  517. T122:;
  518.     {object V72;
  519.     V73= list(2,VV[35],(V66));
  520.     base[0]= list(3,VV[39],/* INLINE-ARGS */V73,list(2,VV[35],(V67)));
  521.     vs_top=(vs_base=base+0)+1;
  522.     (void) (*Lnk60)();
  523.     Llist();
  524.     vs_top=sup;
  525.     V72= vs_base[0];
  526.     if((car((V72)))==Cnil){
  527.     goto T130;}
  528.     bds_bind(VV[3],VV[2]);
  529.     setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
  530.     (void)((*(LnkLI58))());
  531.     base[1]= Ct;
  532.     base[2]= VV[40];
  533.     base[3]= (V66);
  534.     vs_top=(vs_base=base+1)+3;
  535.     Lformat();
  536.     vs_top=sup;
  537.     {object V74 = list(3,VV[41],VV[42],list(2,VV[35],(V66)));
  538.     bds_unwind1;
  539.     VMR16(V74)}
  540. T130:;
  541.     {object V75 = cadr((V72));
  542.     VMR16(V75)}}}
  543. }
  544. /*    local entry for function CMP-MACROEXPAND-1    */
  545.  
  546. static object LI17(V77)
  547.  
  548. object V77;
  549. {     VMB17 VMS17 VMV17
  550.     bds_check;
  551. TTL:;
  552.     {register object V78;
  553.     V78= Cnil;
  554.     {register object V79;
  555.     register object V80;
  556.     V79= symbol_value(VV[37]);
  557.     V80= car((V79));
  558. T144:;
  559.     if(!(endp((V79)))){
  560.     goto T145;}
  561.     goto T140;
  562. T145:;
  563.     if(!(type_of((V80))==t_cons)){
  564.     goto T149;}
  565.     V81= list(3,car((V80)),VV[38],cadr((V80)));
  566.     V78= make_cons(/* INLINE-ARGS */V81,(V78));
  567. T149:;
  568.     V79= cdr((V79));
  569.     V80= car((V79));
  570.     goto T144;}
  571. T140:;
  572.     {object V82;
  573.     V83= list(2,VV[35],(V77));
  574.     base[0]= list(3,VV[43],/* INLINE-ARGS */V83,list(2,VV[35],(V78)));
  575.     vs_top=(vs_base=base+0)+1;
  576.     (void) (*Lnk60)();
  577.     Llist();
  578.     vs_top=sup;
  579.     V82= vs_base[0];
  580.     if((car((V82)))==Cnil){
  581.     goto T162;}
  582.     bds_bind(VV[3],VV[2]);
  583.     setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
  584.     (void)((*(LnkLI58))());
  585.     base[1]= Ct;
  586.     base[2]= VV[44];
  587.     base[3]= (V77);
  588.     vs_top=(vs_base=base+1)+3;
  589.     Lformat();
  590.     vs_top=sup;
  591.     {object V84 = list(3,VV[41],VV[45],list(2,VV[35],(V77)));
  592.     bds_unwind1;
  593.     VMR17(V84)}
  594. T162:;
  595.     {object V85 = cadr((V82));
  596.     VMR17(V85)}}}
  597. }
  598. /*    local entry for function CMP-EXPAND-MACRO    */
  599.  
  600. static object LI18(V89,V90,V91)
  601.  
  602. object V89;register object V90;object V91;
  603. {     VMB18 VMS18 VMV18
  604.     bds_check;
  605. TTL:;
  606.     {register object V92;
  607.     V92= Cnil;
  608.     {register object V93;
  609.     register object V94;
  610.     V93= symbol_value(VV[37]);
  611.     V94= car((V93));
  612. T176:;
  613.     if(!(endp((V93)))){
  614.     goto T177;}
  615.     goto T172;
  616. T177:;
  617.     if(!(type_of((V94))==t_cons)){
  618.     goto T181;}
  619.     V95= list(3,car((V94)),VV[38],cadr((V94)));
  620.     V92= make_cons(/* INLINE-ARGS */V95,(V92));
  621. T181:;
  622.     V93= cdr((V93));
  623.     V94= car((V93));
  624.     goto T176;}
  625. T172:;
  626.     if(symbol_value(VV[46])==Cnil){
  627.     goto T190;}
  628.     (void)((*(LnkLI61))((V90)));
  629. T190:;
  630.     if(((V92))==Cnil){
  631.     goto T191;}
  632.     V96= nreverse((V92));
  633.     V92= list(3,Cnil,/* INLINE-ARGS */V96,Cnil);
  634. T191:;
  635.     {object V97;
  636.     V98= list(2,VV[35],(V89));
  637.     V99= list(2,VV[35],make_cons((V90),(V91)));
  638.     base[0]= list(5,VV[47],VV[48],/* INLINE-ARGS */V98,/* INLINE-ARGS */V99,list(2,VV[35],(V92)));
  639.     vs_top=(vs_base=base+0)+1;
  640.     (void) (*Lnk60)();
  641.     Llist();
  642.     vs_top=sup;
  643.     V97= vs_base[0];
  644.     if((car((V97)))==Cnil){
  645.     goto T199;}
  646.     bds_bind(VV[3],VV[2]);
  647.     setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
  648.     (void)((*(LnkLI58))());
  649.     base[1]= Ct;
  650.     base[2]= VV[49];
  651.     base[3]= (V90);
  652.     vs_top=(vs_base=base+1)+3;
  653.     Lformat();
  654.     vs_top=sup;
  655.     {object V100 = list(3,VV[41],VV[50],list(2,VV[35],make_cons((V90),(V91))));
  656.     bds_unwind1;
  657.     VMR18(V100)}
  658. T199:;
  659.     {object V101 = cadr((V97));
  660.     VMR18(V101)}}}
  661. }
  662. /*    function definition for CMP-TOPLEVEL-EVAL    */
  663.  
  664. static L19()
  665. {register object *base=vs_base;
  666.     register object *sup=base+VM19; VC19
  667.     vs_reserve(VM19);
  668.     bds_check;
  669.     {object V102;
  670.     check_arg(1);
  671.     V102=(base[0]);
  672.     vs_top=sup;
  673. TTL:;
  674.     bds_bind(VV[51],symbol_value(VV[52]));
  675.     vs_base=vs_top;
  676.     (void) (*Lnk62)();
  677.     vs_top=sup;
  678.     V103= vs_base[0];
  679.     bds_bind(VV[52],one_minus(V103));
  680.     bds_bind(VV[53],symbol_value(VV[54]));
  681.     base[5]= VV[56];
  682.     vs_top=(vs_base=base+5)+1;
  683.     Lfind_package();
  684.     vs_top=sup;
  685.     V104= vs_base[0];
  686.     bds_bind(VV[55],make_cons(V104,symbol_value(VV[55])));
  687.     base[5]= (V102);
  688.     vs_top=(vs_base=base+5)+1;
  689.     (void) (*Lnk63)();
  690.     bds_unwind1;
  691.     bds_unwind1;
  692.     bds_unwind1;
  693.     bds_unwind1;
  694.     return;
  695.     }
  696. }
  697. /*    local entry for function COMPILER-DEF-HOOK    */
  698.  
  699. static object LI20(V107,V108)
  700.  
  701. object V107;object V108;
  702. {     VMB20 VMS20 VMV20
  703. TTL:;
  704.     {object V109 = Cnil;
  705.     VMR20(V109)}
  706. }
  707. /*    local entry for function COMPILER-CLEAR-COMPILER-PROPERTIES    */
  708.  
  709. static object LI21(V112,V113)
  710.  
  711. register object V112;object V113;
  712. {     VMB21 VMS21 VMV21
  713. TTL:;
  714.     {register object V114;
  715.     register object V115;
  716.     base[0]= (V112);
  717.     vs_top=(vs_base=base+0)+1;
  718.     Lsymbol_plist();
  719.     vs_top=sup;
  720.     V114= vs_base[0];
  721.     V115= Cnil;
  722. T221:;
  723.     V115= car((V114));
  724.     if(!(type_of((V115))==t_symbol)){
  725.     goto T226;}
  726.     if((get((V115),VV[57],Cnil))==Cnil){
  727.     goto T226;}
  728.     V114= cddr((V114));
  729.     (void)(remprop((V112),(V115)));
  730.     goto T224;
  731. T226:;
  732.     V114= cddr((V114));
  733. T224:;
  734.     if(!(((V114))==Cnil)){
  735.     goto T234;}
  736.     goto T233;
  737. T234:;
  738.     goto T221;
  739. T233:;
  740.     goto T219;
  741. T219:;
  742.     {object V116 = (*(LnkLI64))((V112),(V113));
  743.     VMR21(V116)}}
  744. }
  745. static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],&LnkLI64,2,ap);} /* COMPILER-DEF-HOOK */
  746. static LnkT63(){ call_or_link(VV[63],&Lnk63);} /* ERROR-SET */
  747. static LnkT62(){ call_or_link(VV[62],&Lnk62);} /* IHS-TOP */
  748. static object  LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],&LnkLI61,1,ap);} /* ADD-MACRO-CALLEE */
  749. static LnkT60(){ call_or_link(VV[60],&Lnk60);} /* CMP-TOPLEVEL-EVAL */
  750. static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[59],&LnkLI59,ap);} /* BREAK */
  751. static object  LnkTLI58(){return call_proc0(VV[58],&LnkLI58);} /* PRINT-CURRENT-FORM */
  752.